home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / mslang / vm / src / xms / xms10.asm < prev    next >
Encoding:
Assembly Source File  |  1993-12-13  |  512 b   |  34 lines

  1.     .model    large,pascal
  2.  
  3.     include xms.inc
  4.  
  5.     .code    XMS_TEXT
  6.  
  7.     ;ERR PUBLIC __ErrXmsRequestUpperMemoryBlock(_segment _far *pseg, USHORT cparaRequested);
  8.  
  9.     public    __ErrXmsRequestUpperMemoryBlock
  10. __ErrXmsRequestUpperMemoryBlock    proc    \
  11.     pseg:ptr word,            \
  12.     pcpara:ptr word
  13.  
  14.     les    bx,[pcpara]
  15.     mov    dx,es:[bx]
  16.     XmsCall 10h
  17.     jc    Exit        ;Brif error
  18.  
  19.     mov    ax,bx
  20.     les    bx,[pseg]
  21.     mov    es:[bx],ax
  22.  
  23.     xor    ax,ax
  24.  
  25. Exit:
  26.     les    bx,[pcpara]
  27.     mov    es:[bx],dx
  28.  
  29.     ret
  30.  
  31. __ErrXmsRequestUpperMemoryBlock    endp
  32.  
  33.     end
  34.